home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / P4UTIL.ZIP / SEQREAD.PRG (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-11-03  |  4.1 KB  |  151 lines
  1. 100 GOSUB1480:DIMP$(145):S=0:PR=0:DE=1
  2. 110 PRINT"[147]";:POKE53280,0:POKE53281,0:GOTO350
  3. 120 CLOSE15:OPEN15,8,15,"I0":INPUT#15,EN$,EM$,TK$,SR$:CLOSE15
  4. 130 IFEN$<>"00"THENGOSUB1200:GOTO120
  5. 140 RETURN
  6. 150 GOSUB120
  7. 160 :
  8. 170 GOSUB1400
  9. 180 :
  10. 190 IFP<1THEN300
  11. 200 H=1:I=1:J=16:IFJ>PTHENJ=P
  12. 210 PRINT"[159]":K=H:FORL=ITOJ:IFL=1THENM=K
  13. 220 IFL=2THENPRINT
  14. 230 PRINT""LEFT$(P$(K)+BL$,16)"
  15. 240 K[178]K[170]1:[139]K[177]P[167]K[178]1
  16. 250 [130]:[142]
  17. 260 H[178]H[170]1:[139]H[177]P[167]H[178]1
  18. 270 [141]210:[142]
  19. 280 H[178]H[171]1:[139]H[179]1[167]H[178]P
  20. 290 [137]270
  21. 300 [153]"OPEN"[166]242)"NO FILES ON DISK"
  22. 310 [153]:[153]"PRESS RETURN TO
  23. 320 PRINT"CONTINUE.":GOSUB1180
  24. 330 GETV$:IFV$<>CHR$(13)THEN330
  25. 340 PRINT"[147]";:S=0:GOTO350
  26. 350 LF=54272:HF=LF+1:WF=LF+4:VL=LF+24:FORMU=LFTOVL:POKEMU,0:NEXT:TP=0:TC=1
  27. 360 POKELF+5,64:POKELF+6,128:POKEVL,15:BL$="                "
  28. 370 IFS=0THENS=1:GOSUB940
  29. 380 GOSUB150
  30. 390 GOSUB1180
  31. 400 POKE198,0
  32. 410 GETV$:IFV$=""THEN410
  33. 420 IFV$=CHR$(13)THEN620
  34. 430 IFV$="[133]"THENGOSUB500:GOTO400
  35. 440 IFV$="[134]"THENGOSUB560:GOTO400
  36. 450 IFV$="[135]"THENRUN
  37. 460 IFV$=CHR$(136)THENSYS65532
  38. 470 IFV$=CHR$(17)ORV$=CHR$(29)THENGOSUB260:GOTO400
  39. 480 IFV$=CHR$(145)ORV$=CHR$(157)THENGOSUB280:GOTO400
  40. 490 GOTO400
  41. 500 IFTP=0THENTP=1:GOTO520
  42. 510 TP=0
  43. 520 PRINT"[154]"TAB(240)TAB(240)TAB(194);
  44. 530 IFTP=0THENPRINT"OFF"
  45. 540 IFTP=1THENPRINT" ON"
  46. 550 RETURN
  47. 560 IFTC=0THENTC=1:GOTO580
  48. 570 TC=0
  49. 580 PRINT"[154]"TAB(240)TAB(240)TAB(232);
  50. 590 IFTC=0THENPRINTCHR$(142)"UPPER"
  51. 600 IFTC=1THENPRINTCHR$(14)"LOWER"
  52. 610 RETURN
  53. 620 PRINT"[147]":POKE53280,6:POKE53281,3
  54. 630 IFTP=0ORTP=1ANDPR=1THEN670
  55. 640 PRINTSPC(47)"[144]PLEASE TURN ON YOUR PRINTER."
  56. 650 PRINTSPC(50)"THEN PRESS RETURN.":PR=1:GOSUB1180
  57. 660 GETV$:IFV$<>CHR$(13)THEN660
  58. 670 IFTC=0THENIFTP=1THENOPEN4,4:R=PEEK(144)
  59. 680 IFTC=1THENIFTP=1THENOPEN4,4,7:R=PEEK(144)
  60. 690 IFR<>0THENPR=0:GOTO620
  61. 700 PRINTSPC(41)"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  62. 710 PRINT"[221] PRESS SPACEBAR TO TOGGLE PAUSE.    [221]"
  63. 720 PRINT"[221] PRESS F1 TO ABORT LISTING.         [221]"
  64. 730 PRINT"[221] PRESS F3 TO INCREASE LISTING SPEED.[221]"
  65. 740 PRINT"[221] PRESS F5 TO REDUCE LISTING SPEED.  [221]"
  66. 750 PRINT"[221]                                    [221]"
  67. 760 PRINT"[221]      PRESS SPACEBAR TO START.      [221]"
  68. 770 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144]":GOSUB1180
  69. 780 GETV$:IFV$<>" "THEN780
  70. 790 :
  71. 800 GOSUB1280
  72. 810 :
  73. 820 CLOSE1:IFPRTHENPRINT#4
  74. 830 CLOSE4
  75. 840 PRINT:PRINTSPC(20)" END OF FILE..... "
  76. 850 PRINTSPC(84)"PRESS RETURN TO CONTINUE.":GOSUB1180
  77. 860 GETV$:IFV$<>CHR$(13)THEN860
  78. 870 PRINT"[147]";:POKE53280,0:POKE53281,0:GOSUB940:GOSUB270:GOTO390
  79. 880 GOSUB1180
  80. 890 GETV$:IFV$<>CHR$(32)THEN890
  81. 900 RETURN
  82. 910 GOSUB1180
  83. 920 GETV$:IFV$<>CHR$(32)THEN920
  84. 930 RETURN
  85. 940 POKE53265,PEEK(53265)AND239:PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  86. 950 [153]" (null)       (null)VAL(null)(null)VAL(null)(null)RIGHT$ATN(null) ASCRIGHT$(null)VAL (null)VALATNSTR$VAL(null)       (null)"
  87. 960 [153]" (null)                                    (null)"
  88. 970 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPOPEN"
  89. 980 [153]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  90. 990 [153]" (null)                (null)WAITSYS   <<< LOAD ME <<<OPEN"
  91. 1000 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  92. 1010 [153]" (null)                (null)DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^OPEN"
  93. 1020 [153]" (null)                (null)DEF(null)F1 TOGL PRINTER (null)OPEN"
  94. 1030 [153]" (null)                (null)DEF(null)F3 TOGL CHR SET (null)OPEN"
  95. 1040 [153]" (null)                (null)DEF(null)F5 GET NEW DISK (null)OPEN"
  96. 1050 [153]" (null)                (null)DEF(null)F7 QUIT PROGRAM (null)OPEN"
  97. 1060 [153]" (null)                (null)DEF/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPOPEN"
  98. 1070 [153]" (null)                (null)"
  99. 1080 [153]" (null)                (null)CONTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^OPEN"
  100. 1090 [153]" (null)                (null)CONT(null) PRINTER    OFF (null)OPEN"
  101. 1100 [153]" (null)                (null)CONT(null) CHARSET  LOWER (null)OPEN"
  102. 1110 [153]" (null)                (null)CONT-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<OPEN"
  103. 1120 [153]" (null)                (null)CONT(null)USE CURSOR KEYS (null)OPEN"
  104. 1130 [153]" (null)                (null)CONT(null)TO SCROLL LIST. (null)OPEN"
  105. 1140 [153]" (null)                (null)CONT(null)PRESS RETURN TO (null)OPEN"
  106. 1150 [153]" (null)                (null)CONT(null)READ TOP FILE.  (null)OPEN"
  107. 1160 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCONT/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[151]53265,[194](53265)[176]16
  108. 1170 TP[178]0:PR[178]0:[142]
  109. 1180 [129]MU[178]1[164]2:[151]LF,30:[151]HF,134:[151]WF,17:[129]T[178]1[164]200:[130]
  110. 1190 [151]WF,16:[151]LF,0:[151]HF,0:[129]T[178]1[164]20:[130]:[130]:[151]198,0:[142]
  111. 1200 [153]"LOADPOKE":[151]53280,2:[151]53281,15
  112. 1210 [153][163]208)"DRIVE ERROR  : "EN$
  113. 1220 [153][163]8)"ERROR MESSAGE: "EM$
  114. 1230 [153][163]8)"TRACK        : "TK$
  115. 1240 [153][163]8)"SECTOR       : "SR$
  116. 1250 [153][163]168)"PRESS RETURN TO CONTINUE":[151]198,0:[141]1180
  117. 1260 [161]V$:[139]V$[179][177][199](13)[167]1260
  118. 1270 [151]53280,0:[151]53281,0:[153]"LOAD";:[141]940:[142]
  119. 1280 [151]917,32
  120. 1290 [160]1:[159]1,8,8,P$(M)
  121. 1300 [158]IN:W$[178][200](IN$,[194](142))
  122. 1310 [153]W$" ";:[139]TP[167][152]4,W$" ";
  123. 1320 [161]V$:[139]V$[178]"INPUT"[167]1380
  124. 1330 [139]V$[178]"DIM"[167]DE[178]DE[173]2:[139]DE[179]1[167]DE[178]1
  125. 1340 [139]V$[178]"READ"[167]DE[178]DE[172]2:[139]DE[177]5000[167]DE[178]5000
  126. 1350 [139]V$[178]" "[167][141]910
  127. 1360 [129]T[178]1[164]DE:[130]
  128. 1370 [139]ST[178]0[167]1300
  129. 1380 [160]1
  130. 1390 [142]
  131. 1400 [159]1,8,0,"$0:*=S"
  132. 1410 [129]P[178]0[164]144:[151]917,34:[158]IN
  133. 1420 [139]([194](142))[179]3[167][158]IN
  134. 1430 [158]IN
  135. 1440 P$(P)[178][200](IN$,[194](142))
  136. 1450 [139]ST[167]1470
  137. 1460 [151]917,0:[158]IN:[130]
  138. 1470 [160]1:P[178]P[171]1:[142]
  139. 1480 IN$[178]"Z":[129]I[178]1[164]7:IN$[178]IN$[170]IN$:[130]
  140. 1490 IN$[178][200](IN$,127)[170]IN$
  141. 1500 IN[178]896
  142. 1510 [129]I[178]IN [164]IN[170]41:[135]N:[151]I,N:[130]
  143. 1520 [131] 160,2,177,45,153,137,0,200
  144. 1530 [131] 192,6,208,246,162
  145. 1540 [131] 1,32,198,255,32,228,255,201
  146. 1550 [131] 13,240,15,164,142,145,140,200
  147. 1560 [131] 132,142,196,139,240,4,165
  148. 1570 [131] 144,240,234,76,204,255
  149. 1580 [142]
  150. 1590 [161]A$:[153][198](A$[170][199](0))"ON":[137]1590
  151.